home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / HAMRADIO / HAM_MISC.ARC / !Any RC_!RunImage < prev    next >
Unknown  |  1995-02-05  |  11.2 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% xdgMime image/x-tga default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 41 | 6e 79 a0 52 43 0d 00 14 |..... >A|ny.RC...|
|00000010| 30 f4 20 53 65 72 69 65 | 73 2f 50 61 72 61 6c 6c |0. Serie|s/Parall|
|00000020| 65 6c 20 72 65 73 69 73 | 74 6f 72 2f 63 61 70 61 |el resis|tor/capa|
|00000030| 63 69 74 61 6e 63 65 20 | 70 61 69 72 73 0d 00 1e |citance |pairs...|
|00000040| 15 f4 20 42 79 20 50 2e | 45 2e 4d 61 72 73 68 61 |.. By P.|E.Marsha|
|00000050| 6c 6c 0d 00 28 0f f4 20 | 56 65 72 73 69 6f 6e 20 |ll..(.. |Version |
|00000060| 31 0d 00 32 0f 20 ee 20 | 85 20 f6 3a f1 9e 3a e0 |1..2. . |. .:..:.|
|00000070| 0d 00 3c 04 0d 00 46 0b | 20 71 75 69 74 3d a3 0d |..<...F.| quit=..|
|00000080| 00 50 10 20 61 63 63 75 | 72 61 74 65 20 3d 31 0d |.P. accu|rate =1.|
|00000090| 00 5a 10 20 63 6c 6f 73 | 65 73 74 20 20 3d 32 0d |.Z. clos|est =2.|
|000000a0| 00 64 10 20 6f 6e 65 66 | 69 78 65 64 20 3d 33 0d |.d. onef|ixed =3.|
|000000b0| 00 6e 14 20 6d 6f 64 65 | 20 3d 20 61 63 63 75 72 |.n. mode| = accur|
|000000c0| 61 74 65 0d 00 78 04 0d | 00 82 0f 20 63 61 70 5f |ate..x..|... cap_|
|000000d0| 6d 6f 64 65 3d a3 0d 00 | 8c 10 20 68 6f 6c 64 5f |mode=...|.. hold_|
|000000e0| 6d 6f 64 65 3d a3 0d 00 | 96 0c 20 72 65 61 64 79 |mode=...|.. ready|
|000000f0| 3d a3 0d 00 a0 24 20 72 | 61 6e 67 65 3d 31 32 20 |=....$ r|ange=12 |
|00000100| 20 20 20 3a f4 20 31 32 | 20 76 61 6c 75 65 73 2f | :. 12| values/|
|00000110| 64 65 63 61 64 65 0d 00 | aa 25 20 64 65 63 61 64 |decade..|.% decad|
|00000120| 65 73 3d 37 20 20 20 3a | f4 20 6e 75 6d 62 65 72 |es=7 :|. number|
|00000130| 20 6f 66 20 64 65 63 61 | 64 65 73 0d 00 b4 1a 20 | of deca|des.... |
|00000140| de 20 76 61 6c 75 65 28 | 32 34 2a 64 65 63 61 64 |. value(|24*decad|
|00000150| 65 73 2b 32 29 0d 00 be | 11 20 f2 72 65 61 64 5f |es+2)...|. .read_|
|00000160| 76 61 6c 75 65 73 0d 00 | c8 09 20 52 74 3d 30 0d |values..|.. Rt=0.|
|00000170| 00 d2 11 20 40 25 3d 26 | 30 31 30 32 30 32 30 41 |... @%=&|0102020A|
|00000180| 0d 00 dc 12 20 de 20 62 | 6c 6f 63 6b 25 20 26 38 |.... . b|lock% &8|
|00000190| 30 30 0d 00 e6 16 20 de | 20 6d 61 69 6e 5f 6d 65 |00.... .| main_me|
|000001a0| 6e 75 25 20 26 34 30 30 | 0d 00 f0 13 20 de 20 69 |nu% &400|.... . i|
|000001b0| 63 6f 6e 61 64 64 72 28 | 32 30 29 0d 00 fa 3f 20 |conaddr(|20)...? |
|000001c0| c8 99 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |.."Wimp_|Initiali|
|000001d0| 73 65 22 20 2c 32 30 30 | 2c 26 34 42 35 33 34 31 |se" ,200|,&4B5341|
|000001e0| 35 34 2c 22 41 6e 79 a0 | 52 43 22 20 b8 20 76 65 |54,"Any.|RC" . ve|
|000001f0| 72 73 69 6f 6e 2c 74 61 | 73 6b 0d 01 04 17 20 69 |rsion,ta|sk.... i|
|00000200| 63 6f 6e 62 75 66 6c 65 | 6e 20 3d 20 26 32 30 30 |conbufle|n = &200|
|00000210| 30 0d 01 0e 2d 20 de 20 | 74 65 6d 70 62 75 66 20 |0...- . |tempbuf |
|00000220| 69 63 6f 6e 62 75 66 6c | 65 6e 2c 20 69 63 6f 6e |iconbufl|en, icon|
|00000230| 62 75 66 20 69 63 6f 6e | 62 75 66 6c 65 6e 0d 01 |buf icon|buflen..|
|00000240| 18 11 20 6e 65 78 74 3d | 69 63 6f 6e 62 75 66 0d |.. next=|iconbuf.|
|00000250| 01 22 35 20 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |."5 .. "|Wimp_Ope|
|00000260| 6e 54 65 6d 70 6c 61 74 | 65 22 2c 2c 22 3c 41 6e |nTemplat|e",,"<An|
|00000270| 79 a0 52 43 24 44 69 72 | 3e 2e 54 65 6d 70 6c 61 |y.RC$Dir|>.Templa|
|00000280| 74 65 73 22 0d 01 2c 25 | 20 6d 61 69 6e 68 61 6e |tes"..,%| mainhan|
|00000290| 64 6c 65 20 3d 20 a4 77 | 69 6e 64 6f 77 5f 64 65 |dle = .w|indow_de|
|000002a0| 66 28 22 6d 61 69 6e 22 | 29 0d 01 36 3e 20 e3 20 |f("main"|)..6> . |
|000002b0| 49 25 3d 30 20 b8 20 32 | 30 20 3a 20 69 63 6f 6e |I%=0 . 2|0 : icon|
|000002c0| 61 64 64 72 28 49 25 29 | 20 3d 20 a4 69 63 6f 6e |addr(I%)| = .icon|
|000002d0| 61 64 64 72 28 6d 61 69 | 6e 68 61 6e 64 6c 65 2c |addr(mai|nhandle,|
|000002e0| 49 25 29 20 3a 20 ed 0d | 01 40 23 20 c8 99 22 57 |I%) : ..|.@# .."W|
|000002f0| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 49 6e 66 |imp_GetW|indowInf|
|00000300| 6f 22 2c 2c 62 6c 6f 63 | 6b 25 0d 01 4a 2d 20 74 |o",,bloc|k%..J- t|
|00000310| 69 74 6c 65 61 64 64 72 | 3d 62 6c 6f 63 6b 25 21 |itleaddr|=block%!|
|00000320| 37 36 20 3a 20 74 69 74 | 6c 65 6c 65 6e 3d 62 6c |76 : tit|lelen=bl|
|00000330| 6f 63 6b 25 21 38 34 0d | 01 54 25 20 69 6e 66 6f |ock%!84.|.T% info|
|00000340| 68 61 6e 64 6c 65 20 3d | 20 a4 77 69 6e 64 6f 77 |handle =| .window|
|00000350| 5f 64 65 66 28 22 69 6e | 66 6f 22 29 0d 01 5e 25 |_def("in|fo")..^%|
|00000360| 20 68 65 6c 70 68 61 6e | 64 6c 65 20 3d 20 a4 77 | helphan|dle = .w|
|00000370| 69 6e 64 6f 77 5f 64 65 | 66 28 22 68 65 6c 70 22 |indow_de|f("help"|
|00000380| 29 0d 01 68 1b 20 c8 99 | 22 57 69 6d 70 5f 43 6c |)..h. ..|"Wimp_Cl|
|00000390| 6f 73 65 54 65 6d 70 6c | 61 74 65 22 0d 01 72 0f |oseTempl|ate"..r.|
|000003a0| 20 f2 6d 61 69 6e 5f 6d | 65 6e 75 0d 01 7c 04 0d | .main_m|enu..|..|
|000003b0| 01 86 0d 20 f2 69 63 6f | 6e 62 61 72 0d 01 90 3a |... .ico|nbar...:|
|000003c0| 20 ef 32 33 2c 31 39 31 | 2c 30 2c 36 32 2c 39 39 | .23,191|,0,62,99|
|000003d0| 2c 39 39 2c 35 34 2c 32 | 30 2c 31 31 39 2c 30 20 |,99,54,2|0,119,0 |
|000003e0| 3a 20 f4 20 72 65 64 65 | 66 69 6e 65 20 bf 20 74 |: . rede|fine . t|
|000003f0| 6f 20 4f 68 6d 73 0d 01 | 9a 2e 20 24 69 63 6f 6e |o Ohms..|.. $icon|
|00000400| 61 64 64 72 28 38 29 3d | 22 35 22 2b bd 30 20 3a |addr(8)=|"5"+.0 :|
|00000410| 20 f4 20 64 65 66 61 75 | 6c 74 20 74 6f 6c 65 72 | . defau|lt toler|
|00000420| 61 6e 63 65 0d 01 a4 04 | 0d 01 ae 0f 20 ee 20 85 |ance....|.... . .|
|00000430| 20 f2 65 72 72 6f 72 0d | 01 b8 0b 20 f2 63 6c 65 | .error.|... .cle|
|00000440| 61 72 0d 01 c2 13 20 f2 | 73 65 74 5f 69 63 6f 6e |ar.... .|set_icon|
|00000450| 28 31 2c b9 29 0d 01 cc | 2a 20 f2 6f 70 65 6e 75 |(1,.)...|* .openu|
|00000460| 70 28 6d 61 69 6e 68 61 | 6e 64 6c 65 2c 32 30 30 |p(mainha|ndle,200|
|00000470| 2c 31 30 30 30 2c 31 32 | 33 36 2c 39 33 36 29 0d |,1000,12|36,936).|
|00000480| 01 d6 0e 20 f2 63 61 72 | 65 74 28 37 29 0d 01 e0 |... .car|et(7)...|
|00000490| 06 20 f5 0d 01 ea 2b 20 | 20 20 c8 99 22 57 69 6d |. ....+ | .."Wim|
|000004a0| 70 5f 50 6f 6c 6c 22 2c | 30 2c 62 6c 6f 63 6b 25 |p_Poll",|0,block%|
|000004b0| 20 b8 20 72 65 61 73 6f | 6e 2c 70 74 72 25 0d 01 | . reaso|n,ptr%..|
|000004c0| f4 12 20 20 20 c8 8e 20 | 72 65 61 73 6f 6e 20 ca |.. .. |reason .|
|000004d0| 0d 01 fe 1a 20 20 20 20 | 20 c9 20 31 3a f2 72 65 |.... | . 1:.re|
|000004e0| 64 72 61 77 77 69 6e 64 | 6f 77 0d 02 08 27 20 20 |drawwind|ow...' |
|000004f0| 20 20 20 c9 20 32 3a c8 | 99 20 22 57 69 6d 70 5f | . 2:.|. "Wimp_|
|00000500| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 70 74 72 |OpenWind|ow",,ptr|
|00000510| 25 0d 02 12 28 20 20 20 | 20 20 c9 20 33 3a c8 99 |%...( | . 3:..|
|00000520| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 | "Wimp_C|loseWind|
|00000530| 6f 77 22 2c 2c 70 74 72 | 25 0d 02 1c 15 20 20 20 |ow",,ptr|%.... |
|00000540| 20 20 c9 20 36 3a f2 63 | 6c 69 63 6b 65 64 0d 02 | . 6:.c|licked..|
|00000550| 26 16 20 20 20 20 20 c9 | 20 38 3a f2 6b 65 79 70 |&. .| 8:.keyp|
|00000560| 72 65 73 73 0d 02 30 1a | 20 20 20 20 20 c9 20 39 |ress..0.| . 9|
|00000570| 3a f2 70 72 6f 63 65 73 | 73 5f 6d 65 6e 75 0d 02 |:.proces|s_menu..|
|00000580| 3a 1b 20 20 20 20 20 c9 | 20 31 37 2c 31 38 3a f2 |:. .| 17,18:.|
|00000590| 4f 53 6d 65 73 73 61 67 | 65 0d 02 44 08 20 20 20 |OSmessag|e..D. |
|000005a0| cb 0d 02 4e 0b 20 fd 20 | 71 75 69 74 0d 02 58 17 |...N. . |quit..X.|
|000005b0| 20 c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f | .."Wimp|_CloseDo|
|000005c0| 77 6e 22 0d 02 62 05 e0 | 0d 02 6c 05 3a 0d 02 76 |wn"..b..|..l.:..v|
|000005d0| 50 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |P. -----|--------|
|000005e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 02 80 |--------|-----...|
|00000620| 05 3a 0d 02 8a 11 dd f2 | 72 65 61 64 5f 76 61 6c |.:......|read_val|
|00000630| 75 65 73 0d 02 94 18 20 | 73 74 65 70 73 3d 72 61 |ues.... |steps=ra|
|00000640| 6e 67 65 2a 64 65 63 61 | 64 65 73 0d 02 9e 09 20 |nge*deca|des.... |
|00000650| 4e 25 3d 31 0d 02 a8 17 | 20 e3 20 44 25 3d 30 20 |N%=1....| . D%=0 |
|00000660| b8 20 64 65 63 61 64 65 | 73 2d 31 0d 02 b2 0a 20 |. decade|s-1.... |
|00000670| 20 20 f7 2b 31 0d 02 bc | 14 20 20 20 e3 20 49 3d | .+1...|. . I=|
|00000680| 31 20 b8 20 72 61 6e 67 | 65 0d 02 c6 27 20 20 20 |1 . rang|e...' |
|00000690| 20 20 20 f3 20 6d 75 6c | 74 20 3a 20 e7 20 72 61 | . mul|t : . ra|
|000006a0| 6e 67 65 3d 31 32 20 8c | 20 f3 20 64 75 6d 6d 79 |nge=12 .| . dummy|
|000006b0| 0d 02 d0 1e 20 20 20 20 | 20 20 76 61 6c 75 65 28 |.... | value(|
|000006c0| 4e 25 29 3d 6d 75 6c 74 | 2a 31 30 5e 44 25 0d 02 |N%)=mult|*10^D%..|
|000006d0| da 0f 20 20 20 20 20 20 | 4e 25 2b 3d 31 0d 02 e4 |.. |N%+=1...|
|000006e0| 08 20 20 20 ed 0d 02 ee | 06 20 ed 0d 02 f8 35 20 |. ....|. ....5 |
|000006f0| 76 61 6c 75 65 28 4e 25 | 29 3d 31 30 45 36 20 3a |value(N%|)=10E6 :|
|00000700| 20 73 74 65 70 73 2b 3d | 31 20 3a 20 f4 20 61 64 | steps+=|1 : . ad|
|00000710| 64 20 31 30 4d 6f 68 6d | 20 74 6f 20 6c 69 73 74 |d 10Mohm| to list|
|00000720| 0d 03 02 36 20 dc 20 31 | 2e 30 2c 31 2e 31 2c 31 |...6 . 1|.0,1.1,1|
|00000730| 2e 32 2c 31 2e 33 2c 31 | 2e 35 2c 31 2e 36 2c 31 |.2,1.3,1|.5,1.6,1|
|00000740| 2e 38 2c 32 2e 30 2c 32 | 2e 32 2c 32 2e 34 2c 32 |.8,2.0,2|.2,2.4,2|
|00000750| 2e 37 2c 33 2e 30 0d 03 | 0c 36 20 dc 20 33 2e 33 |.7,3.0..|.6 . 3.3|
|00000760| 2c 33 2e 36 2c 33 2e 39 | 2c 34 2e 33 2c 34 2e 37 |,3.6,3.9|,4.3,4.7|
|00000770| 2c 35 2e 31 2c 35 2e 36 | 2c 36 2e 32 2c 36 2e 38 |,5.1,5.6|,6.2,6.8|
|00000780| 2c 37 2e 35 2c 38 2e 32 | 2c 39 2e 31 0d 03 16 05 |,7.5,8.2|,9.1....|
|00000790| e1 0d 03 20 05 3a 0d 03 | 2a 0f dd f2 63 61 6c 63 |... .:..|*...calc|
|000007a0| 75 6c 61 74 65 0d 03 34 | 10 20 68 6f 6c 64 5f 6d |ulate..4|. hold_m|
|000007b0| 6f 64 65 3d a3 0d 03 3e | 1c 20 52 74 3d a4 69 6e |ode=...>|. Rt=.in|
|000007c0| 70 75 74 28 24 69 63 6f | 6e 61 64 64 72 28 37 29 |put($ico|naddr(7)|
|000007d0| 29 0d 03 48 3c 20 24 69 | 63 6f 6e 61 64 64 72 28 |)..H< $i|conaddr(|
|000007e0| 37 29 3d 20 a4 66 6f 72 | 6d 61 74 28 52 74 29 20 |7)= .for|mat(Rt) |
|000007f0| 3a 20 f2 75 70 64 61 74 | 65 5f 69 63 6f 6e 28 37 |: .updat|e_icon(7|
|00000800| 29 20 3a 20 f2 63 61 72 | 65 74 28 37 29 0d 03 52 |) : .car|et(7)..R|
|00000810| 3d 20 e7 20 52 74 3e 32 | 30 45 36 20 8c 20 f2 74 |= . Rt>2|0E6 . .t|
|00000820| 65 78 74 5f 6d 65 73 73 | 61 67 65 28 22 54 61 72 |ext_mess|age("Tar|
|00000830| 67 65 74 20 76 61 6c 75 | 65 20 69 73 20 74 6f 6f |get valu|e is too|
|00000840| 20 6c 61 72 67 65 22 29 | 3a e1 0d 03 5c 3d 20 e7 | large")|:...\= .|
|00000850| 20 52 74 3c 30 2e 35 20 | 20 8c 20 f2 74 65 78 74 | Rt<0.5 | . .text|
|00000860| 5f 6d 65 73 73 61 67 65 | 28 22 54 61 72 67 65 74 |_message|("Target|
|00000870| 20 76 61 6c 75 65 20 69 | 73 20 74 6f 6f 20 73 6d | value i|s too sm|
|00000880| 61 6c 6c 22 29 3a e1 0d | 03 66 4c 20 6d 61 78 65 |all"):..|.fL maxe|
|00000890| 72 72 3d bb 28 24 69 63 | 6f 6e 61 64 64 72 28 38 |rr=.($ic|onaddr(8|
|000008a0| 29 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)) | |
|000008b0| 20 3a 20 f4 20 25 20 6d | 61 78 20 65 72 72 6f 72 | : . % m|ax error|
|000008c0| 20 66 6f 72 20 63 6c 6f | 73 65 73 74 20 76 61 6c | for clo|sest val|
|000008d0| 75 65 73 0d 03 70 0b 20 | f2 63 6c 65 61 72 0d 03 |ues..p. |.clear..|
|000008e0| 7a 10 20 f2 75 70 64 61 | 74 65 5f 61 6c 6c 0d 03 |z. .upda|te_all..|
|000008f0| 84 15 20 c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |.. .."Ho|urglass_|
|00000900| 4f 6e 22 0d 03 8e 0f 20 | 64 69 66 66 50 3d 31 30 |On".... |diffP=10|
|00000910| 45 39 0d 03 98 0f 20 64 | 69 66 66 53 3d 31 30 45 |E9.... d|iffS=10E|
|00000920| 39 0d 03 a2 0f 20 62 65 | 73 74 50 3d 31 30 45 39 |9.... be|stP=10E9|
|00000930| 0d 03 ac 0f 20 62 65 73 | 74 53 3d 31 30 45 39 0d |.... bes|tS=10E9.|
|00000940| 03 b6 0e 20 c8 8e 20 6d | 6f 64 65 20 ca 0d 03 c0 |... .. m|ode ....|
|00000950| 1d 20 20 20 c9 20 61 63 | 63 75 72 61 74 65 20 3a |. . ac|curate :|
|00000960| 20 f2 61 63 63 75 72 61 | 74 65 0d 03 ca 1c 20 20 | .accura|te.... |
|00000970| 20 c9 20 63 6c 6f 73 65 | 73 74 20 20 3a 20 f2 63 | . close|st : .c|
|00000980| 6c 6f 73 65 73 74 0d 03 | d4 1d 20 20 20 c9 20 6f |losest..|.. . o|
|00000990| 6e 65 66 69 78 65 64 20 | 3a 20 f2 6f 6e 65 66 69 |nefixed |: .onefi|
|000009a0| 78 65 64 0d 03 de 06 20 | cb 0d 03 e8 27 20 f4 20 |xed.... |....' . |
|000009b0| 63 68 65 63 6b 20 69 66 | 20 31 20 72 65 73 69 73 |check if| 1 resis|
|000009c0| 74 6f 72 20 69 73 20 6e | 65 61 72 65 72 2e 2e 2e |tor is n|earer...|
|000009d0| 0d 03 f2 14 20 73 69 6e | 67 6c 65 3d a3 20 3a 20 |.... sin|gle=. : |
|000009e0| 58 25 3d 30 0d 03 fc 06 | 20 f5 0d 04 06 0c 20 20 |X%=0....| ..... |
|000009f0| 20 58 25 2b 3d 31 0d 04 | 10 1e 20 fd 20 76 61 6c | X%+=1..|.. . val|
|00000a00| 75 65 28 58 25 29 3e 52 | 74 20 84 20 58 25 3e 73 |ue(X%)>R|t . X%>s|
|00000a10| 74 65 70 73 0d 04 1a 29 | 20 65 31 3d a4 65 72 72 |teps...)| e1=.err|
|00000a20| 6f 72 28 76 61 6c 75 65 | 28 58 25 29 29 20 20 3a |or(value|(X%)) :|
|00000a30| 20 52 31 3d 76 61 6c 75 | 65 28 58 25 29 0d 04 24 | R1=valu|e(X%)..$|
|00000a40| 2b 20 65 32 3d a4 65 72 | 72 6f 72 28 76 61 6c 75 |+ e2=.er|ror(valu|
|00000a50| 65 28 58 25 2d 31 29 29 | 3a 20 52 32 3d 76 61 6c |e(X%-1))|: R2=val|
|00000a60| 75 65 28 58 25 2d 31 29 | 0d 04 2e 20 20 e7 20 65 |ue(X%-1)|... . e|
|00000a70| 32 3c 65 31 20 8c 20 c8 | 94 20 65 31 2c 65 32 3a |2<e1 . .|. e1,e2:|
|00000a80| c8 94 20 52 31 2c 52 32 | 0d 04 38 43 20 e7 20 65 |.. R1,R2|..8C . e|
|00000a90| 31 3c 3d a4 65 72 72 6f | 72 28 62 65 73 74 50 29 |1<=.erro|r(bestP)|
|00000aa0| 20 80 20 65 31 3c 3d a4 | 65 72 72 6f 72 28 62 65 | . e1<=.|error(be|
|00000ab0| 73 74 53 29 20 8c 20 73 | 69 6e 67 6c 65 20 3d b9 |stS) . s|ingle =.|
|00000ac0| 20 8b 20 73 69 6e 67 6c | 65 3d a3 0d 04 42 18 20 | . singl|e=...B. |
|00000ad0| c8 99 22 48 6f 75 72 67 | 6c 61 73 73 5f 53 6d 61 |.."Hourg|lass_Sma|
|00000ae0| 73 68 22 0d 04 4c 0c 20 | 72 65 61 64 79 3d b9 0d |sh"..L. |ready=..|
|00000af0| 04 56 0d 20 f2 72 65 73 | 75 6c 74 73 0d 04 60 05 |.V. .res|ults..`.|
|00000b00| e1 0d 04 6a 05 3a 0d 04 | 74 0e dd f2 61 63 63 75 |...j.:..|t...accu|
|00000b10| 72 61 74 65 0d 04 7e 13 | 20 e3 20 58 25 3d 31 20 |rate..~.| . X%=1 |
|00000b20| b8 20 73 74 65 70 73 0d | 04 88 2c 20 20 20 c8 99 |. steps.|.., ..|
|00000b30| 20 26 34 30 36 43 34 2c | 58 25 2f 73 74 65 70 73 | &406C4,|X%/steps|
|00000b40| 2a 31 30 30 3a 20 f4 20 | 68 6f 75 72 67 6c 61 73 |*100: . |hourglas|
|00000b50| 73 20 25 0d 04 92 15 20 | 20 20 e3 20 59 25 3d 31 |s %.... | . Y%=1|
|00000b60| 20 b8 20 73 74 65 70 73 | 0d 04 9c 2b 20 20 20 20 | . steps|...+ |
|00000b70| 20 52 70 3d 31 2f 28 28 | 31 2f 76 61 6c 75 65 28 | Rp=1/((|1/value(|
|00000b80| 58 25 29 29 2b 28 31 2f | 76 61 6c 75 65 28 59 25 |X%))+(1/|value(Y%|
|00000b90| 29 29 29 0d 04 a6 1f 20 | 20 20 20 20 52 73 3d 76 |))).... | Rs=v|
|00000ba0| 61 6c 75 65 28 58 25 29 | 2b 76 61 6c 75 65 28 59 |alue(X%)|+value(Y|
|00000bb0| 25 29 0d 04 b0 43 20 20 | 20 20 20 e7 20 a4 62 65 |%)...C | . .be|
|00000bc0| 74 74 65 72 28 52 70 2c | 62 65 73 74 50 29 20 8c |tter(Rp,|bestP) .|
|00000bd0| 20 62 65 73 74 50 3d 52 | 70 3a 52 31 50 3d 76 61 | bestP=R|p:R1P=va|
|00000be0| 6c 75 65 28 58 25 29 3a | 52 32 50 3d 76 61 6c 75 |lue(X%):|R2P=valu|
|00000bf0| 65 28 59 25 29 0d 04 ba | 43 20 20 20 20 20 e7 20 |e(Y%)...|C . |
|00000c00| a4 62 65 74 74 65 72 28 | 52 73 2c 62 65 73 74 53 |.better(|Rs,bestS|
|00000c10| 29 20 8c 20 62 65 73 74 | 53 3d 52 73 3a 52 31 53 |) . best|S=Rs:R1S|
|00000c20| 3d 76 61 6c 75 65 28 58 | 25 29 3a 52 32 53 3d 76 |=value(X|%):R2S=v|
|00000c30| 61 6c 75 65 28 59 25 29 | 0d 04 c4 08 20 20 20 ed |alue(Y%)|.... .|
|00000c40| 0d 04 ce 06 20 ed 0d 04 | d8 05 e1 0d 04 e2 05 3a |.... ...|.......:|
|00000c50| 0d 04 ec 0d dd f2 63 6c | 6f 73 65 73 74 0d 04 f6 |......cl|osest...|
|00000c60| 13 20 e3 20 58 25 3d 31 | 20 b8 20 73 74 65 70 73 |. . X%=1| . steps|
|00000c70| 0d 05 00 2c 20 20 20 c8 | 99 20 26 34 30 36 43 34 |..., .|. &406C4|
|00000c80| 2c 58 25 2f 73 74 65 70 | 73 2a 31 30 30 3a 20 f4 |,X%/step|s*100: .|
|00000c90| 20 68 6f 75 72 67 6c 61 | 73 73 20 25 0d 05 0a 15 | hourgla|ss %....|
|00000ca0| 20 20 20 e3 20 59 25 3d | 31 20 b8 20 73 74 65 70 | . Y%=|1 . step|
|00000cb0| 73 0d 05 14 2b 20 20 20 | 20 20 52 70 3d 31 2f 28 |s...+ | Rp=1/(|
|00000cc0| 28 31 2f 76 61 6c 75 65 | 28 58 25 29 29 2b 28 31 |(1/value|(X%))+(1|
|00000cd0| 2f 76 61 6c 75 65 28 59 | 25 29 29 29 0d 05 1e 1f |/value(Y|%)))....|
|00000ce0| 20 20 20 20 20 52 73 3d | 76 61 6c 75 65 28 58 25 | Rs=|value(X%|
|00000cf0| 29 2b 76 61 6c 75 65 28 | 59 25 29 0d 05 28 23 20 |)+value(|Y%)..(# |
|00000d00| 20 20 20 20 6d 69 6e 3d | 94 28 76 61 6c 75 65 28 | min=|.(value(|
|00000d10| 58 25 29 2d 76 61 6c 75 | 65 28 59 25 29 29 0d 05 |X%)-valu|e(Y%))..|
|00000d20| 32 2a 20 20 20 20 20 e7 | 20 6d 69 6e 3c 64 69 66 |2* .| min<dif|
|00000d30| 66 50 20 80 20 a4 65 72 | 72 6f 72 28 52 70 29 3c |fP . .er|ror(Rp)<|
|00000d40| 6d 61 78 65 72 72 20 8c | 0d 05 3c 3b 20 20 20 20 |maxerr .|..<; |
|00000d50| 20 20 20 64 69 66 66 50 | 3d 6d 69 6e 3a 43 52 31 | diffP|=min:CR1|
|00000d60| 50 3d 76 61 6c 75 65 28 | 58 25 29 3a 43 52 32 50 |P=value(|X%):CR2P|
|00000d70| 3d 76 61 6c 75 65 28 59 | 25 29 3a 62 65 73 74 50 |=value(Y|%):bestP|
|00000d80| 3d 52 70 0d 05 46 0a 20 | 20 20 20 20 cd 0d 05 50 |=Rp..F. | ...P|
|00000d90| 2a 20 20 20 20 20 e7 20 | 6d 69 6e 3c 64 69 66 66 |* . |min<diff|
|00000da0| 53 20 80 20 a4 65 72 72 | 6f 72 28 52 73 29 3c 6d |S . .err|or(Rs)<m|
|00000db0| 61 78 65 72 72 20 8c 0d | 05 5a 3b 20 20 20 20 20 |axerr ..|.Z; |
|00000dc0| 20 20 64 69 66 66 53 3d | 6d 69 6e 3a 43 52 31 53 | diffS=|min:CR1S|
|00000dd0| 3d 76 61 6c 75 65 28 58 | 25 29 3a 43 52 32 53 3d |=value(X|%):CR2S=|
|00000de0| 76 61 6c 75 65 28 59 25 | 29 3a 62 65 73 74 53 3d |value(Y%|):bestS=|
|00000df0| 52 73 0d 05 64 0a 20 20 | 20 20 20 cd 0d 05 6e 08 |Rs..d. | ...n.|
|00000e00| 20 20 20 ed 0d 05 78 06 | 20 ed 0d 05 82 05 e1 0d | ...x.| .......|
|00000e10| 05 8c 05 3a 0d 05 96 0e | dd f2 6f 6e 65 66 69 78 |...:....|..onefix|
|00000e20| 65 64 0d 05 a0 22 20 66 | 69 78 65 64 20 3d 20 a4 |ed..." f|ixed = .|
|00000e30| 69 6e 70 75 74 28 24 69 | 63 6f 6e 61 64 64 72 28 |input($i|conaddr(|
|00000e40| 31 39 29 29 0d 05 aa 42 | 20 24 69 63 6f 6e 61 64 |19))...B| $iconad|
|00000e50| 64 72 28 31 39 29 3d 20 | a4 66 6f 72 6d 61 74 28 |dr(19)= |.format(|
|00000e60| 66 69 78 65 64 29 20 3a | 20 f2 75 70 64 61 74 65 |fixed) :| .update|
|00000e70| 5f 69 63 6f 6e 28 31 39 | 29 20 3a 20 f2 63 61 72 |_icon(19|) : .car|
|00000e80| 65 74 28 31 39 29 0d 05 | b4 3b 20 e7 20 66 69 78 |et(19)..|.; . fix|
|00000e90| 65 64 20 3d 20 30 20 8c | 20 f2 74 65 78 74 5f 6d |ed = 0 .| .text_m|
|00000ea0| 65 73 73 61 67 65 28 22 | 45 6e 74 65 72 20 6f 6e |essage("|Enter on|
|00000eb0| 65 20 66 69 78 65 64 20 | 76 61 6c 75 65 22 29 3a |e fixed |value"):|
|00000ec0| e1 0d 05 be 15 20 20 20 | e3 20 59 25 3d 31 20 b8 |..... |. Y%=1 .|
|00000ed0| 20 73 74 65 70 73 0d 05 | c8 27 20 20 20 20 20 52 | steps..|.' R|
|00000ee0| 70 3d 31 2f 28 28 31 2f | 66 69 78 65 64 29 2b 28 |p=1/((1/|fixed)+(|
|00000ef0| 31 2f 76 61 6c 75 65 28 | 59 25 29 29 29 0d 05 d2 |1/value(|Y%)))...|
|00000f00| 1b 20 20 20 20 20 52 73 | 3d 66 69 78 65 64 2b 76 |. Rs|=fixed+v|
|00000f10| 61 6c 75 65 28 59 25 29 | 0d 05 dc 3f 20 20 20 20 |alue(Y%)|...? |
|00000f20| 20 e7 20 a4 62 65 74 74 | 65 72 28 52 70 2c 62 65 | . .bett|er(Rp,be|
|00000f30| 73 74 50 29 20 8c 20 62 | 65 73 74 50 3d 52 70 3a |stP) . b|estP=Rp:|
|00000f40| 52 31 50 3d 66 69 78 65 | 64 3a 52 32 50 3d 76 61 |R1P=fixe|d:R2P=va|
|00000f50| 6c 75 65 28 59 25 29 0d | 05 e6 3f 20 20 20 20 20 |lue(Y%).|..? |
|00000f60| e7 20 a4 62 65 74 74 65 | 72 28 52 73 2c 62 65 73 |. .bette|r(Rs,bes|
|00000f70| 74 53 29 20 8c 20 62 65 | 73 74 53 3d 52 73 3a 52 |tS) . be|stS=Rs:R|
|00000f80| 31 53 3d 66 69 78 65 64 | 3a 52 32 53 3d 76 61 6c |1S=fixed|:R2S=val|
|00000f90| 75 65 28 59 25 29 0d 05 | f0 08 20 20 20 ed 0d 05 |ue(Y%)..|.. ...|
|00000fa0| fa 05 e1 0d 06 04 05 3a | 0d 06 0e 0f dd a4 69 6e |.......:|......in|
|00000fb0| 70 75 74 28 52 24 29 0d | 06 18 0c 20 69 3d bb 28 |put(R$).|... i=.(|
|00000fc0| 52 24 29 0d 06 22 2c 20 | e7 20 a7 52 24 2c 22 52 |R$)..", |. .R$,"R|
|00000fd0| 22 29 20 84 20 a7 52 24 | 2c 22 bf 22 29 20 8c 20 |") . .R$|,".") . |
|00000fe0| f2 73 65 6c 65 63 74 5f | 6d 6f 64 65 28 31 29 0d |.select_|mode(1).|
|00000ff0| 06 2c 2c 20 e7 20 a7 52 | 24 2c 22 50 22 29 20 84 |.,, . .R|$,"P") .|
|00001000| 20 a7 52 24 2c 22 70 22 | 29 20 8c 20 f2 73 65 6c | .R$,"p"|) . .sel|
|00001010| 65 63 74 5f 6d 6f 64 65 | 28 32 29 0d 06 36 39 20 |ect_mode|(2)..69 |
|00001020| e7 20 a7 52 24 2c 22 4b | 22 29 20 84 20 a7 52 24 |. .R$,"K|") . .R$|
|00001030| 2c 22 6b 22 29 20 8c 20 | 69 3d 69 2a 31 30 30 30 |,"k") . |i=i*1000|
|00001040| 20 20 20 3a 20 f2 73 65 | 6c 65 63 74 5f 6d 6f 64 | : .se|lect_mod|
|00001050| 65 28 31 29 0d 06 40 2e | 20 e7 20 a7 52 24 2c 22 |e(1)..@.| . .R$,"|
|00001060| 4d 22 29 20 8c 20 69 3d | 69 2a 31 30 30 30 30 30 |M") . i=|i*100000|
|00001070| 30 3a 20 f2 73 65 6c 65 | 63 74 5f 6d 6f 64 65 28 |0: .sele|ct_mode(|
|00001080| 31 29 0d 06 4a 39 20 e7 | 20 a7 52 24 2c 22 4e 22 |1)..J9 .| .R$,"N"|
|00001090| 29 20 84 20 a7 52 24 2c | 22 6e 22 29 20 8c 20 69 |) . .R$,|"n") . i|
|000010a0| 3d 69 2a 31 30 30 30 20 | 20 20 3a 20 f2 73 65 6c |=i*1000 | : .sel|
|000010b0| 65 63 74 5f 6d 6f 64 65 | 28 32 29 0d 06 54 43 20 |ect_mode|(2)..TC |
|000010c0| e7 20 a7 52 24 2c 22 75 | 22 29 20 84 20 a7 52 24 |. .R$,"u|") . .R$|
|000010d0| 2c 22 b5 22 29 20 84 20 | a7 52 24 2c 22 6d 22 29 |,".") . |.R$,"m")|
|000010e0| 8c 20 69 3d 69 2a 31 30 | 30 30 30 30 30 3a 20 f2 |. i=i*10|00000: .|
|000010f0| 73 65 6c 65 63 74 5f 6d | 6f 64 65 28 32 29 0d 06 |select_m|ode(2)..|
|00001100| 5e 06 3d 69 0d 06 68 05 | 3a 0d 06 72 0d dd f2 72 |^.=i..h.|:..r...r|
|00001110| 65 73 75 6c 74 73 0d 06 | 7c 12 20 e7 20 ac 20 72 |esults..||. . . r|
|00001120| 65 61 64 79 20 8c 20 e1 | 0d 06 86 1e 20 24 69 63 |eady . .|.... $ic|
|00001130| 6f 6e 61 64 64 72 28 37 | 29 3d 20 a4 66 6f 72 6d |onaddr(7|)= .form|
|00001140| 61 74 28 52 74 29 0d 06 | 90 0e 20 f2 63 61 72 65 |at(Rt)..|.. .care|
|00001150| 74 28 37 29 0d 06 9a 0e | 20 c8 8e 20 6d 6f 64 65 |t(7)....| .. mode|
|00001160| 20 ca 0d 06 a4 05 20 0d | 06 ae 0f 20 c9 20 63 6c | ..... .|... . cl|
|00001170| 6f 73 65 73 74 3a 0d 06 | b8 15 20 20 20 e7 20 64 |osest:..|.. . d|
|00001180| 69 66 66 50 3c 31 30 45 | 39 20 8c 0d 06 c2 25 20 |iffP<10E|9 ....% |
|00001190| 20 20 20 20 24 69 63 6f | 6e 61 64 64 72 28 39 29 | $ico|naddr(9)|
|000011a0| 20 3d 20 a4 66 6f 72 6d | 61 74 28 43 52 31 50 29 | = .form|at(CR1P)|
|000011b0| 0d 06 cc 25 20 20 20 20 | 20 24 69 63 6f 6e 61 64 |...% | $iconad|
|000011c0| 64 72 28 31 30 29 3d 20 | a4 66 6f 72 6d 61 74 28 |dr(10)= |.format(|
|000011d0| 43 52 32 50 29 0d 06 d6 | 31 20 20 20 20 20 24 69 |CR2P)...|1 $i|
|000011e0| 63 6f 6e 61 64 64 72 28 | 31 31 29 3d 20 a4 66 6f |conaddr(|11)= .fo|
|000011f0| 72 6d 61 74 28 a4 70 61 | 72 61 28 43 52 31 50 2c |rmat(.pa|ra(CR1P,|
|00001200| 43 52 32 50 29 29 0d 06 | e0 36 20 20 20 20 20 24 |CR2P))..|.6 $|
|00001210| 69 63 6f 6e 61 64 64 72 | 28 31 32 29 3d 20 c3 28 |iconaddr|(12)= .(|
|00001220| a4 65 72 72 6f 72 28 a4 | 70 61 72 61 28 43 52 31 |.error(.|para(CR1|
|00001230| 50 2c 43 52 32 50 29 29 | 29 2b bd 30 0d 06 ea 08 |P,CR2P))|)+.0....|
|00001240| 20 20 20 cc 0d 06 f4 1f | 20 20 20 20 20 24 69 63 | .....| $ic|
|00001250| 6f 6e 61 64 64 72 28 39 | 29 3d 22 4e 6f 6e 65 22 |onaddr(9|)="None"|
|00001260| 2b bd 30 0d 06 fe 28 20 | 20 20 20 20 e3 20 49 25 |+.0...( | . I%|
|00001270| 3d 31 30 20 b8 20 31 32 | 20 3a 21 69 63 6f 6e 61 |=10 . 12| :!icona|
|00001280| 64 64 72 28 49 25 29 3d | 30 3a ed 0d 07 08 08 20 |ddr(I%)=|0:..... |
|00001290| 20 20 cd 0d 07 12 15 20 | 20 20 e7 20 64 69 66 66 | ..... | . diff|
|000012a0| 53 3c 31 30 45 39 20 8c | 0d 07 1c 25 20 20 20 20 |S<10E9 .|...% |
|000012b0| 20 24 69 63 6f 6e 61 64 | 64 72 28 31 33 29 3d 20 | $iconad|dr(13)= |
|000012c0| a4 66 6f 72 6d 61 74 28 | 43 52 31 53 29 0d 07 26 |.format(|CR1S)..&|
|000012d0| 25 20 20 20 20 20 24 69 | 63 6f 6e 61 64 64 72 28 |% $i|conaddr(|
|000012e0| 31 34 29 3d 20 a4 66 6f | 72 6d 61 74 28 43 52 32 |14)= .fo|rmat(CR2|
|000012f0| 53 29 0d 07 30 2a 20 20 | 20 20 20 24 69 63 6f 6e |S)..0* | $icon|
|00001300| 61 64 64 72 28 31 35 29 | 3d 20 a4 66 6f 72 6d 61 |addr(15)|= .forma|
|00001310| 74 28 43 52 31 53 2b 43 | 52 32 53 29 0d 07 3a 2f |t(CR1S+C|R2S)..:/|
|00001320| 20 20 20 20 20 24 69 63 | 6f 6e 61 64 64 72 28 31 | $ic|onaddr(1|
|00001330| 36 29 3d 20 c3 28 a4 65 | 72 72 6f 72 28 43 52 31 |6)= .(.e|rror(CR1|
|00001340| 53 2b 43 52 32 53 29 29 | 2b bd 30 0d 07 44 08 20 |S+CR2S))|+.0..D. |
|00001350| 20 20 cc 0d 07 4e 20 20 | 20 20 20 20 24 69 63 6f | ...N | $ico|
|00001360| 6e 61 64 64 72 28 31 33 | 29 3d 22 4e 6f 6e 65 22 |naddr(13|)="None"|
|00001370| 2b bd 30 0d 07 58 28 20 | 20 20 20 20 e3 20 49 25 |+.0..X( | . I%|
|00001380| 3d 31 34 20 b8 20 31 36 | 20 3a 21 69 63 6f 6e 61 |=14 . 16| :!icona|
|00001390| 64 64 72 28 49 25 29 3d | 30 3a ed 0d 07 62 08 20 |ddr(I%)=|0:...b. |
|000013a0| 20 20 cd 0d 07 6c 1a 20 | c9 20 61 63 63 75 72 61 | ...l. |. accura|
|000013b0| 74 65 2c 20 6f 6e 65 66 | 69 78 65 64 3a 0d 07 76 |te, onef|ixed:..v|
|000013c0| 1b 20 20 20 e7 20 a4 65 | 72 72 6f 72 28 62 65 73 |. . .e|rror(bes|
|000013d0| 74 50 29 3c 32 30 20 8c | 0d 07 80 24 20 20 20 20 |tP)<20 .|...$ |
|000013e0| 20 24 69 63 6f 6e 61 64 | 64 72 28 39 29 20 3d 20 | $iconad|dr(9) = |
|000013f0| a4 66 6f 72 6d 61 74 28 | 52 31 50 29 0d 07 8a 24 |.format(|R1P)...$|
|00001400| 20 20 20 20 20 24 69 63 | 6f 6e 61 64 64 72 28 31 | $ic|onaddr(1|
|00001410| 30 29 3d 20 a4 66 6f 72 | 6d 61 74 28 52 32 50 29 |0)= .for|mat(R2P)|
|00001420| 0d 07 94 26 20 20 20 20 | 20 24 69 63 6f 6e 61 64 |...& | $iconad|
|00001430| 64 72 28 31 31 29 3d 20 | a4 66 6f 72 6d 61 74 28 |dr(11)= |.format(|
|00001440| 62 65 73 74 50 29 0d 07 | 9e 2b 20 20 20 20 20 24 |bestP)..|.+ $|
|00001450| 69 63 6f 6e 61 64 64 72 | 28 31 32 29 3d 20 c3 28 |iconaddr|(12)= .(|
|00001460| a4 65 72 72 6f 72 28 62 | 65 73 74 50 29 29 2b bd |.error(b|estP))+.|
|00001470| 30 0d 07 a8 08 20 20 20 | cc 0d 07 b2 1f 20 20 20 |0.... |..... |
|00001480| 20 20 24 69 63 6f 6e 61 | 64 64 72 28 39 29 3d 22 | $icona|ddr(9)="|
|00001490| 4e 6f 6e 65 22 2b bd 30 | 0d 07 bc 28 20 20 20 20 |None"+.0|...( |
|000014a0| 20 e3 20 49 25 3d 31 30 | 20 b8 20 31 32 20 3a 21 | . I%=10| . 12 :!|
|000014b0| 69 63 6f 6e 61 64 64 72 | 28 49 25 29 3d 30 3a ed |iconaddr|(I%)=0:.|
|000014c0| 0d 07 c6 08 20 20 20 cd | 0d 07 d0 1b 20 20 20 e7 |.... .|.... .|
|000014d0| 20 a4 65 72 72 6f 72 28 | 62 65 73 74 53 29 3c 32 | .error(|bestS)<2|
|000014e0| 30 20 8c 0d 07 da 24 20 | 20 20 20 20 24 69 63 6f |0 ....$ | $ico|
|000014f0| 6e 61 64 64 72 28 31 33 | 29 3d 20 a4 66 6f 72 6d |naddr(13|)= .form|
|00001500| 61 74 28 52 31 53 29 0d | 07 e4 24 20 20 20 20 20 |at(R1S).|..$ |
|00001510| 24 69 63 6f 6e 61 64 64 | 72 28 31 34 29 3d 20 a4 |$iconadd|r(14)= .|
|00001520| 66 6f 72 6d 61 74 28 52 | 32 53 29 0d 07 ee 26 20 |format(R|2S)...& |
|00001530| 20 20 20 20 24 69 63 6f | 6e 61 64 64 72 28 31 35 | $ico|naddr(15|
|00001540| 29 3d 20 a4 66 6f 72 6d | 61 74 28 62 65 73 74 53 |)= .form|at(bestS|
|00001550| 29 0d 07 f8 2b 20 20 20 | 20 20 24 69 63 6f 6e 61 |)...+ | $icona|
|00001560| 64 64 72 28 31 36 29 3d | 20 c3 28 a4 65 72 72 6f |ddr(16)=| .(.erro|
|00001570| 72 28 62 65 73 74 53 29 | 29 2b bd 30 0d 08 02 08 |r(bestS)|)+.0....|
|00001580| 20 20 20 cc 0d 08 0c 20 | 20 20 20 20 20 24 69 63 | .... | $ic|
|00001590| 6f 6e 61 64 64 72 28 31 | 33 29 3d 22 4e 6f 6e 65 |onaddr(1|3)="None|
|000015a0| 22 2b bd 30 0d 08 16 28 | 20 20 20 20 20 e3 20 49 |"+.0...(| . I|
|000015b0| 25 3d 31 34 20 b8 20 31 | 36 20 3a 21 69 63 6f 6e |%=14 . 1|6 :!icon|
|000015c0| 61 64 64 72 28 49 25 29 | 3d 30 3a ed 0d 08 20 08 |addr(I%)|=0:... .|
|000015d0| 20 20 20 cd 0d 08 2a 04 | 0d 08 34 06 20 cb 0d 08 | ...*.|..4. ...|
|000015e0| 3e 19 20 e7 20 63 61 70 | 5f 6d 6f 64 65 20 8c 20 |>. . cap|_mode . |
|000015f0| f2 73 77 61 70 52 43 0d | 08 48 25 20 e7 20 6d 6f |.swapRC.|.H% . mo|
|00001600| 64 65 3d 61 63 63 75 72 | 61 74 65 20 84 20 6d 6f |de=accur|ate . mo|
|00001610| 64 65 3d 63 6c 6f 73 65 | 73 74 20 8c 0d 08 52 11 |de=close|st ...R.|
|00001620| 20 20 20 e7 20 73 69 6e | 67 6c 65 20 8c 0d 08 5c | . sin|gle ...\|
|00001630| 1a 20 20 20 20 20 e7 20 | a4 65 72 72 6f 72 28 52 |. . |.error(R|
|00001640| 31 29 3c 32 30 20 8c 0d | 08 66 13 20 20 20 20 20 |1)<20 ..|.f. |
|00001650| 20 20 f2 67 72 65 79 28 | a3 29 0d 08 70 24 20 20 | .grey(|.)..p$ |
|00001660| 20 20 20 20 20 24 69 63 | 6f 6e 61 64 64 72 28 31 | $ic|onaddr(1|
|00001670| 37 29 3d a4 66 6f 72 6d | 61 74 28 52 31 29 0d 08 |7)=.form|at(R1)..|
|00001680| 7a 29 20 20 20 20 20 20 | 20 24 69 63 6f 6e 61 64 |z) | $iconad|
|00001690| 64 72 28 31 38 29 3d c3 | 28 a4 65 72 72 6f 72 28 |dr(18)=.|(.error(|
|000016a0| 52 31 29 29 2b bd 30 0d | 08 84 0a 20 20 20 20 20 |R1))+.0.|... |
|000016b0| cd 0d 08 8e 08 20 20 20 | cd 0d 08 98 06 20 cd 0d |..... |..... ..|
|000016c0| 08 a2 10 20 f2 75 70 64 | 61 74 65 5f 61 6c 6c 0d |... .upd|ate_all.|
|000016d0| 08 ac 05 e1 0d 08 b6 05 | 3a 0d 08 c0 0f dd a4 66 |........|:......f|
|000016e0| 6f 72 6d 61 74 28 69 29 | 0d 08 ca 0f 20 73 75 66 |ormat(i)|.... suf|
|000016f0| 66 69 78 24 3d 22 22 0d | 08 d4 0b 20 c8 8e 20 b9 |fix$="".|... .. .|
|00001700| 20 ca 0d 08 de 4b 20 20 | 20 c9 20 69 3e 31 30 30 | ....K | . i>100|
|00001710| 30 30 30 30 20 3a 20 69 | 3d 69 2f 31 30 30 30 30 |0000 : i|=i/10000|
|00001720| 30 30 20 3a 20 e7 20 63 | 61 70 5f 6d 6f 64 65 20 |00 : . c|ap_mode |
|00001730| 8c 20 73 75 66 66 69 78 | 24 3d 22 b5 66 22 20 8b |. suffix|$=".f" .|
|00001740| 20 73 75 66 66 69 78 24 | 3d 22 4d bf 22 0d 08 e8 | suffix$|="M."...|
|00001750| 45 20 20 20 c9 20 69 3e | 31 30 30 30 20 3a 20 69 |E . i>|1000 : i|
|00001760| 3d 69 2f 31 30 30 30 20 | 3a 20 e7 20 63 61 70 5f |=i/1000 |: . cap_|
|00001770| 6d 6f 64 65 20 8c 20 73 | 75 66 66 69 78 24 3d 22 |mode . s|uffix$="|
|00001780| 6e 66 22 20 8b 20 73 75 | 66 66 69 78 24 3d 22 4b |nf" . su|ffix$="K|
|00001790| bf 22 0d 08 f2 39 20 20 | 20 c9 20 69 3c 3d 31 30 |."...9 | . i<=10|
|000017a0| 30 30 3a 20 e7 20 63 61 | 70 5f 6d 6f 64 65 20 8c |00: . ca|p_mode .|
|000017b0| 20 73 75 66 66 69 78 24 | 3d 22 70 66 22 20 8b 20 | suffix$|="pf" . |
|000017c0| 73 75 66 66 69 78 24 3d | 22 bf 22 0d 08 fc 06 20 |suffix$=|".".... |
|000017d0| cb 0d 09 06 14 3d c3 28 | 69 29 2b 73 75 66 66 69 |.....=.(|i)+suffi|
|000017e0| 78 24 2b bd 30 0d 09 10 | 05 3a 0d 09 1a 0e dd a4 |x$+.0...|.:......|
|000017f0| 65 72 72 6f 72 28 72 29 | 0d 09 24 15 20 3d 20 94 |error(r)|..$. = .|
|00001800| 28 52 74 2d 72 29 2f 52 | 74 2a 31 30 30 0d 09 2e |(Rt-r)/R|t*100...|
|00001810| 05 3a 0d 09 38 13 dd a4 | 62 65 74 74 65 72 28 76 |.:..8...|better(v|
|00001820| 31 2c 76 32 29 0d 09 42 | 17 3d 20 94 28 76 31 2d |1,v2)..B|.= .(v1-|
|00001830| 52 74 29 3c 94 28 76 32 | 2d 52 74 29 0d 09 4c 05 |Rt)<.(v2|-Rt)..L.|
|00001840| 3a 0d 09 56 0c dd f2 73 | 77 61 70 52 43 0d 09 60 |:..V...s|wapRC..`|
|00001850| 10 20 e3 20 49 25 3d 39 | 20 b8 20 31 32 0d 09 6a |. . I%=9| . 12..j|
|00001860| 28 20 20 20 20 20 c8 94 | 24 69 63 6f 6e 61 64 64 |( ..|$iconadd|
|00001870| 72 28 49 25 29 2c 24 69 | 63 6f 6e 61 64 64 72 28 |r(I%),$i|conaddr(|
|00001880| 49 25 2b 34 29 0d 09 74 | 19 20 20 20 20 20 f2 75 |I%+4)..t|. .u|
|00001890| 70 64 61 74 65 5f 69 63 | 6f 6e 28 49 25 29 0d 09 |pdate_ic|on(I%)..|
|000018a0| 7e 1b 20 20 20 20 20 f2 | 75 70 64 61 74 65 5f 69 |~. .|update_i|
|000018b0| 63 6f 6e 28 49 25 2b 34 | 29 0d 09 88 06 20 ed 0d |con(I%+4|).... ..|
|000018c0| 09 92 05 e1 0d 09 9c 05 | 3a 0d 09 a6 11 dd a4 70 |........|:......p|
|000018d0| 61 72 61 28 72 31 2c 72 | 32 29 0d 09 b0 17 3d 20 |ara(r1,r|2)....= |
|000018e0| 31 2f 28 28 31 2f 72 31 | 29 2b 28 31 2f 72 32 29 |1/((1/r1|)+(1/r2)|
|000018f0| 29 0d 09 ba 04 0d 09 c4 | 10 dd f2 73 69 6d 70 6c |).......|...simpl|
|00001900| 65 28 50 25 29 0d 09 ce | 09 20 ea 20 4e 25 0d 09 |e(P%)...|. . N%..|
|00001910| d8 10 20 68 6f 6c 64 5f | 6d 6f 64 65 3d b9 0d 09 |.. hold_|mode=...|
|00001920| e2 18 20 e7 20 50 25 20 | 8c 20 4e 25 3d 39 20 8b |.. . P% |. N%=9 .|
|00001930| 20 4e 25 3d 31 33 0d 09 | ec 1d 20 52 31 3d a4 69 | N%=13..|.. R1=.i|
|00001940| 6e 70 75 74 28 24 69 63 | 6f 6e 61 64 64 72 28 4e |nput($ic|onaddr(N|
|00001950| 25 29 29 0d 09 f6 1f 20 | 52 32 3d a4 69 6e 70 75 |%)).... |R2=.inpu|
|00001960| 74 28 24 69 63 6f 6e 61 | 64 64 72 28 4e 25 2b 31 |t($icona|ddr(N%+1|
|00001970| 29 29 0d 0a 00 16 20 e7 | 20 52 31 3d 30 20 84 20 |)).... .| R1=0 . |
|00001980| 52 32 3d 30 20 8c 20 e1 | 0d 0a 0a 0b 20 e7 20 50 |R2=0 . .|.... . P|
|00001990| 25 20 8c 0d 0a 14 38 20 | 20 20 e7 20 ac 20 63 61 |% ....8 | . . ca|
|000019a0| 70 5f 6d 6f 64 65 20 8c | 20 72 65 73 75 6c 74 3d |p_mode .| result=|
|000019b0| a4 70 61 72 61 28 52 31 | 2c 52 32 29 20 8b 20 72 |.para(R1|,R2) . r|
|000019c0| 65 73 75 6c 74 3d 52 31 | 2b 52 32 0d 0a 1e 06 20 |esult=R1|+R2.... |
|000019d0| cc 0d 0a 28 38 20 20 20 | e7 20 ac 20 63 61 70 5f |...(8 |. . cap_|
|000019e0| 6d 6f 64 65 20 8c 20 72 | 65 73 75 6c 74 3d 52 31 |mode . r|esult=R1|
|000019f0| 2b 52 32 20 8b 20 72 65 | 73 75 6c 74 3d a4 70 61 |+R2 . re|sult=.pa|
|00001a00| 72 61 28 52 31 2c 52 32 | 29 0d 0a 32 06 20 cd 0d |ra(R1,R2|)..2. ..|
|00001a10| 0a 3c 0b 20 f2 63 6c 65 | 61 72 0d 0a 46 1e 20 24 |.<. .cle|ar..F. $|
|00001a20| 69 63 6f 6e 61 64 64 72 | 28 4e 25 29 3d a4 66 6f |iconaddr|(N%)=.fo|
|00001a30| 72 6d 61 74 28 52 31 29 | 0d 0a 50 20 20 24 69 63 |rmat(R1)|..P $ic|
|00001a40| 6f 6e 61 64 64 72 28 4e | 25 2b 31 29 3d a4 66 6f |onaddr(N|%+1)=.fo|
|00001a50| 72 6d 61 74 28 52 32 29 | 0d 0a 5a 24 20 24 69 63 |rmat(R2)|..Z$ $ic|
|00001a60| 6f 6e 61 64 64 72 28 4e | 25 2b 32 29 3d a4 66 6f |onaddr(N|%+2)=.fo|
|00001a70| 72 6d 61 74 28 72 65 73 | 75 6c 74 29 0d 0a 64 4d |rmat(res|ult)..dM|
|00001a80| 20 e7 20 52 74 3e 30 2e | 31 20 8c 20 24 69 63 6f | . Rt>0.|1 . $ico|
|00001a90| 6e 61 64 64 72 28 4e 25 | 2b 33 29 3d c3 28 a4 65 |naddr(N%|+3)=.(.e|
|00001aa0| 72 72 6f 72 28 72 65 73 | 75 6c 74 29 29 2b bd 30 |rror(res|ult))+.0|
|00001ab0| 20 8b 20 20 24 69 63 6f | 6e 61 64 64 72 28 4e 25 | . $ico|naddr(N%|
|00001ac0| 2b 33 29 3d 22 22 2b bd | 30 0d 0a 6e 10 20 f2 75 |+3)=""+.|0..n. .u|
|00001ad0| 70 64 61 74 65 5f 61 6c | 6c 0d 0a 78 11 20 f2 63 |pdate_al|l..x. .c|
|00001ae0| 61 72 65 74 28 69 63 6f | 6e 29 0d 0a 82 10 20 68 |aret(ico|n).... h|
|00001af0| 6f 6c 64 5f 6d 6f 64 65 | 3d a3 0d 0a 8c 05 e1 0d |old_mode|=.......|
|00001b00| 0a 96 05 3a 0d 0a a0 52 | f4 20 2d 2d 2d 2d 2d 2d |...:...R|. ------|
|00001b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b50| 2d 2d 2d 2d 2d 2d 0d 0a | aa 05 3a 0d 0a b4 17 dd |------..|..:.....|
|00001b60| a4 77 69 6e 64 6f 77 5f | 64 65 66 28 6e 61 6d 65 |.window_|def(name|
|00001b70| 24 29 0d 0a be 4f 20 c8 | 99 22 57 69 6d 70 5f 4c |$)...O .|."Wimp_L|
|00001b80| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 74 65 |oadTempl|ate",,te|
|00001b90| 6d 70 62 75 66 2c 6e 65 | 78 74 2c 69 63 6f 6e 62 |mpbuf,ne|xt,iconb|
|00001ba0| 75 66 2b 69 63 6f 6e 62 | 75 66 6c 65 6e 2c 2d 31 |uf+iconb|uflen,-1|
|00001bb0| 2c 6e 61 6d 65 24 2c 30 | 20 b8 20 2c 2c 6e 65 78 |,name$,0| . ,,nex|
|00001bc0| 74 0d 0a c8 2c 20 c8 99 | 22 57 69 6d 70 5f 43 72 |t..., ..|"Wimp_Cr|
|00001bd0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 74 65 6d |eateWind|ow",,tem|
|00001be0| 70 62 75 66 20 b8 20 68 | 61 6e 64 6c 65 0d 0a d2 |pbuf . h|andle...|
|00001bf0| 0b 3d 68 61 6e 64 6c 65 | 0d 0a dc 05 3a 0d 0a e6 |.=handle|....:...|
|00001c00| 1b dd a4 69 63 6f 6e 61 | 64 64 72 28 77 69 6e 64 |...icona|ddr(wind|
|00001c10| 6f 77 2c 69 63 6f 6e 29 | 0d 0a f0 24 20 62 6c 6f |ow,icon)|...$ blo|
|00001c20| 63 6b 25 21 30 3d 77 69 | 6e 64 6f 77 20 3a 20 62 |ck%!0=wi|ndow : b|
|00001c30| 6c 6f 63 6b 25 21 34 3d | 69 63 6f 6e 0d 0a fa 22 |lock%!4=|icon..."|
|00001c40| 20 c8 99 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e | .."Wimp|_GetIcon|
|00001c50| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 0b |State",,|block%..|
|00001c60| 04 0f 3d 20 62 6c 6f 63 | 6b 25 21 32 38 0d 0b 0e |..= bloc|k%!28...|
|00001c70| 05 3a 0d 0b 18 1c dd f2 | 6f 70 65 6e 75 70 28 77 |.:......|openup(w|
|00001c80| 69 6e 64 6f 77 2c 78 2c | 79 2c 77 2c 68 29 0d 0b |indow,x,|y,w,h)..|
|00001c90| 22 14 20 62 6c 6f 63 6b | 25 21 30 3d 77 69 6e 64 |". block|%!0=wind|
|00001ca0| 6f 77 0d 0b 2c 20 20 62 | 6c 6f 63 6b 25 21 34 3d |ow.., b|lock%!4=|
|00001cb0| 78 20 20 20 3a 20 62 6c | 6f 63 6b 25 21 38 3d 79 |x : bl|ock%!8=y|
|00001cc0| 2d 68 0d 0b 36 1f 20 62 | 6c 6f 63 6b 25 21 31 32 |-h..6. b|lock%!12|
|00001cd0| 3d 78 2b 77 3a 20 62 6c | 6f 63 6b 25 21 31 36 3d |=x+w: bl|ock%!16=|
|00001ce0| 79 0d 0b 40 1f 20 62 6c | 6f 63 6b 25 21 32 30 3d |y..@. bl|ock%!20=|
|00001cf0| 30 20 20 3a 20 62 6c 6f | 63 6b 25 21 32 34 3d 30 |0 : blo|ck%!24=0|
|00001d00| 0d 0b 4a 11 20 62 6c 6f | 63 6b 25 21 32 38 3d 2d |..J. blo|ck%!28=-|
|00001d10| 31 0d 0b 54 21 20 c8 99 | 20 22 57 69 6d 70 5f 4f |1..T! ..| "Wimp_O|
|00001d20| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |penWindo|w",,bloc|
|00001d30| 6b 25 0d 0b 5e 05 e1 0d | 0b 68 05 3a 0d 0b 72 0f |k%..^...|.h.:..r.|
|00001d40| dd f2 6d 61 69 6e 5f 6d | 65 6e 75 0d 0b 7c 13 20 |..main_m|enu..|. |
|00001d50| 66 6c 61 67 73 3d 26 37 | 30 30 30 30 32 31 0d 0b |flags=&7|000021..|
|00001d60| 86 12 20 50 25 3d 6d 61 | 69 6e 5f 6d 65 6e 75 25 |.. P%=ma|in_menu%|
|00001d70| 0d 0b 90 1e 20 f2 6d 65 | 6e 75 5f 68 65 61 64 65 |.... .me|nu_heade|
|00001d80| 72 28 22 41 6e 79 a0 52 | 43 22 2c 31 32 29 0d 0b |r("Any.R|C",12)..|
|00001d90| 9a 2c 20 f2 6d 65 6e 75 | 5f 69 74 65 6d 28 26 30 |., .menu|_item(&0|
|00001da0| 30 2c 69 6e 66 6f 68 61 | 6e 64 6c 65 2c 66 6c 61 |0,infoha|ndle,fla|
|00001db0| 67 73 2c 22 49 6e 66 6f | 22 29 0d 0b a4 2c 20 f2 |gs,"Info|")..., .|
|00001dc0| 6d 65 6e 75 5f 69 74 65 | 6d 28 26 30 30 2c 68 65 |menu_ite|m(&00,he|
|00001dd0| 6c 70 68 61 6e 64 6c 65 | 2c 66 6c 61 67 73 2c 22 |lphandle|,flags,"|
|00001de0| 48 65 6c 70 22 29 0d 0b | ae 24 20 f2 6d 65 6e 75 |Help")..|.$ .menu|
|00001df0| 5f 69 74 65 6d 28 26 38 | 30 2c 2d 31 2c 66 6c 61 |_item(&8|0,-1,fla|
|00001e00| 67 73 2c 22 51 75 69 74 | 22 29 0d 0b b8 05 e1 0d |gs,"Quit|")......|
|00001e10| 0b c2 05 3a 0d 0b cc 17 | dd f2 6d 65 6e 75 5f 68 |...:....|..menu_h|
|00001e20| 65 61 64 65 72 28 54 24 | 2c 77 29 0d 0b d6 3c 20 |eader(T$|,w)...< |
|00001e30| 24 50 25 3d 54 24 20 3a | 20 50 25 21 31 32 3d 26 |$P%=T$ :| P%!12=&|
|00001e40| 37 30 32 30 37 20 3a 20 | 50 25 21 31 36 3d 77 2a |70207 : |P%!16=w*|
|00001e50| 31 36 20 3a 20 50 25 21 | 32 30 3d 33 34 20 3a 20 |16 : P%!|20=34 : |
|00001e60| 50 25 21 32 34 3d 38 0d | 0b e0 0d 20 50 25 3d 50 |P%!24=8.|... P%=P|
|00001e70| 25 2b 32 38 0d 0b ea 05 | e1 0d 0b f4 05 3a 0d 0b |%+28....|.....:..|
|00001e80| fe 24 dd f2 6d 65 6e 75 | 5f 69 74 65 6d 28 6d 65 |.$..menu|_item(me|
|00001e90| 6e 66 6c 67 2c 73 75 62 | 2c 69 63 66 6c 67 2c 54 |nflg,sub|,icflg,T|
|00001ea0| 24 29 0d 0c 08 36 20 50 | 25 21 30 3d 6d 65 6e 66 |$)...6 P|%!0=menf|
|00001eb0| 6c 67 20 3a 20 50 25 21 | 34 3d 73 75 62 20 3a 20 |lg : P%!|4=sub : |
|00001ec0| 50 25 21 38 3d 69 63 66 | 6c 67 20 3a 20 24 28 50 |P%!8=icf|lg : $(P|
|00001ed0| 25 2b 31 32 29 3d 54 24 | 0d 0c 12 0d 20 50 25 3d |%+12)=T$|.... P%=|
|00001ee0| 50 25 2b 32 34 0d 0c 1c | 05 e1 0d 0c 26 05 3a 0d |P%+24...|....&.:.|
|00001ef0| 0c 30 12 dd f2 70 72 6f | 63 65 73 73 5f 6d 65 6e |.0...pro|cess_men|
|00001f00| 75 0d 0c 3a 12 20 20 20 | c8 8e 20 70 74 72 25 21 |u..:. |.. ptr%!|
|00001f10| 30 20 ca 0d 0c 44 0d 20 | 20 20 20 20 c9 20 30 3a |0 ...D. | . 0:|
|00001f20| 0d 0c 4e 13 20 20 20 20 | 20 c9 20 32 3a 71 75 69 |..N. | . 2:qui|
|00001f30| 74 3d b9 0d 0c 58 08 20 | 20 20 cb 0d 0c 62 05 e1 |t=...X. | ...b..|
|00001f40| 0d 0c 6c 05 3a 0d 0c 76 | 0d dd f2 63 6c 69 63 6b |..l.:..v|...click|
|00001f50| 65 64 0d 0c 80 52 20 20 | 58 25 3d 70 74 72 25 21 |ed...R |X%=ptr%!|
|00001f60| 30 2d 36 34 20 3a 20 59 | 25 3d 70 74 72 25 21 34 |0-64 : Y|%=ptr%!4|
|00001f70| 2b 36 34 20 3a 20 62 75 | 74 74 6f 6e 3d 70 74 72 |+64 : bu|tton=ptr|
|00001f80| 25 21 38 20 3a 20 77 69 | 6e 64 6f 77 3d 70 74 72 |%!8 : wi|ndow=ptr|
|00001f90| 25 21 31 32 20 3a 20 69 | 63 6f 6e 25 3d 70 74 72 |%!12 : i|con%=ptr|
|00001fa0| 25 21 31 36 0d 0c 8a 2d | 20 e7 20 28 62 75 74 74 |%!16...-| . (butt|
|00001fb0| 6f 6e 20 80 20 34 29 20 | 80 20 77 69 6e 64 6f 77 |on . 4) |. window|
|00001fc0| 3d 2d 32 20 8c 20 f2 75 | 70 64 61 74 65 5f 61 6c |=-2 . .u|pdate_al|
|00001fd0| 6c 0d 0c 94 10 20 c8 8e | 20 77 69 6e 64 6f 77 20 |l.... ..| window |
|00001fe0| ca 0d 0c 9e 13 20 20 20 | c9 20 6d 61 69 6e 68 61 |..... |. mainha|
|00001ff0| 6e 64 6c 65 0d 0c a8 13 | 20 20 20 20 20 c8 8e 20 |ndle....| .. |
|00002000| 69 63 6f 6e 25 20 ca 0d | 0c b2 1b 20 20 20 20 20 |icon% ..|... |
|00002010| 20 20 c9 20 30 20 3a 20 | f2 63 61 6c 63 75 6c 61 | . 0 : |.calcula|
|00002020| 74 65 0d 0c bc 20 20 20 | 20 20 20 20 20 c9 20 31 |te... | . 1|
|00002030| 20 3a 20 f2 73 65 6c 65 | 63 74 5f 6d 6f 64 65 28 | : .sele|ct_mode(|
|00002040| 31 29 0d 0c c6 20 20 20 | 20 20 20 20 20 c9 20 32 |1)... | . 2|
|00002050| 20 3a 20 f2 73 65 6c 65 | 63 74 5f 6d 6f 64 65 28 | : .sele|ct_mode(|
|00002060| 32 29 0d 0c d0 20 20 20 | 20 20 20 20 20 c9 20 33 |2)... | . 3|
|00002070| 20 3a 20 6d 6f 64 65 20 | 3d 20 61 63 63 75 72 61 | : mode |= accura|
|00002080| 74 65 0d 0c da 1f 20 20 | 20 20 20 20 20 c9 20 34 |te.... | . 4|
|00002090| 20 3a 20 6d 6f 64 65 20 | 3d 20 63 6c 6f 73 65 73 | : mode |= closes|
|000020a0| 74 0d 0c e4 20 20 20 20 | 20 20 20 20 c9 20 32 30 |t... | . 20|
|000020b0| 3a 20 6d 6f 64 65 20 3d | 20 6f 6e 65 66 69 78 65 |: mode =| onefixe|
|000020c0| 64 0d 0c ee 27 20 20 20 | 20 20 20 20 c9 20 33 30 |d...' | . 30|
|000020d0| 3a 20 72 61 6e 67 65 3d | 31 32 3a 20 f2 72 65 61 |: range=|12: .rea|
|000020e0| 64 5f 76 61 6c 75 65 73 | 0d 0c f8 27 20 20 20 20 |d_values|...' |
|000020f0| 20 20 20 c9 20 33 31 3a | 20 72 61 6e 67 65 3d 32 | . 31:| range=2|
|00002100| 34 3a 20 f2 72 65 61 64 | 5f 76 61 6c 75 65 73 0d |4: .read|_values.|
|00002110| 0d 02 0a 20 20 20 20 20 | 7f 0d 0d 0c 31 20 20 20 |... |....1 |
|00002120| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 | .. "|Wimp_Cre|
|00002130| 61 74 65 4d 65 6e 75 22 | 2c 2c 6d 61 69 6e 5f 6d |ateMenu"|,,main_m|
|00002140| 65 6e 75 25 2c 58 25 2c | 59 25 0d 0d 16 0a 20 20 |enu%,X%,|Y%.... |
|00002150| 20 20 20 cb 0d 0d 20 17 | 20 20 20 c9 20 2d 32 20 | ... .| . -2 |
|00002160| 3a 20 f4 20 69 63 6f 6e | 62 61 72 0d 0d 2a 3f 20 |: . icon|bar..*? |
|00002170| 20 20 20 20 e7 20 62 75 | 74 74 6f 6e 20 80 20 32 | . bu|tton . 2|
|00002180| 20 8c 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 | . .. "W|imp_Crea|
|00002190| 74 65 4d 65 6e 75 22 2c | 2c 6d 61 69 6e 5f 6d 65 |teMenu",|,main_me|
|000021a0| 6e 75 25 2c 58 25 2c 32 | 32 34 0d 0d 34 06 20 cb |nu%,X%,2|24..4. .|
|000021b0| 0d 0d 3e 05 e1 0d 0d 48 | 05 3a 0d 0d 52 15 dd f2 |..>....H|.:..R...|
|000021c0| 73 65 6c 65 63 74 5f 6d | 6f 64 65 28 4e 25 29 0d |select_m|ode(N%).|
|000021d0| 0d 5c 14 20 e7 20 68 6f | 6c 64 5f 6d 6f 64 65 20 |.\. . ho|ld_mode |
|000021e0| 8c 20 e1 0d 0d 66 0c 20 | c8 8e 20 4e 25 20 ca 0d |. ...f. |.. N% ..|
|000021f0| 0d 70 1c 20 20 20 c9 20 | 31 20 3a 20 f4 20 72 65 |.p. . |1 : . re|
|00002200| 73 69 73 74 6f 72 20 6d | 6f 64 65 0d 0d 7a 17 20 |sistor m|ode..z. |
|00002210| 20 20 20 20 20 20 e7 20 | 63 61 70 5f 6d 6f 64 65 | . |cap_mode|
|00002220| 20 8c 0d 0d 84 14 20 20 | 20 20 20 20 20 20 20 f2 | ..... | .|
|00002230| 73 77 61 70 52 43 0d 0d | 8e 17 20 20 20 20 20 20 |swapRC..|.. |
|00002240| 20 20 20 63 61 70 5f 6d | 6f 64 65 3d a3 0d 0d 98 | cap_m|ode=....|
|00002250| 33 20 20 20 20 20 20 20 | 20 20 24 69 63 6f 6e 61 |3 | $icona|
|00002260| 64 64 72 28 36 29 3d 22 | 52 65 71 75 69 72 65 64 |ddr(6)="|Required|
|00002270| 20 72 65 73 69 73 74 61 | 6e 63 65 20 22 2b bd 30 | resista|nce "+.0|
|00002280| 0d 0d a2 20 20 20 20 20 | 20 20 20 20 20 f2 74 69 |... | .ti|
|00002290| 74 6c 65 28 22 52 65 73 | 69 73 74 6f 72 73 22 29 |tle("Res|istors")|
|000022a0| 0d 0d ac 1c 20 20 20 20 | 20 20 20 20 20 f2 75 70 |.... | .up|
|000022b0| 64 61 74 65 5f 69 63 6f | 6e 28 36 29 0d 0d b6 1b |date_ico|n(6)....|
|000022c0| 20 20 20 20 20 20 20 20 | 20 f2 73 65 74 5f 69 63 | | .set_ic|
|000022d0| 6f 6e 28 31 2c b9 29 0d | 0d c0 1b 20 20 20 20 20 |on(1,.).|... |
|000022e0| 20 20 20 20 f2 73 65 74 | 5f 69 63 6f 6e 28 32 2c | .set|_icon(2,|
|000022f0| a3 29 0d 0d ca 0c 20 20 | 20 20 20 20 20 cd 0d 0d |.).... | ...|
|00002300| d4 1d 20 20 20 c9 20 32 | 20 3a 20 f4 20 63 61 70 |.. . 2| : . cap|
|00002310| 61 63 69 74 6f 72 20 6d | 6f 64 65 0d 0d de 19 20 |acitor m|ode.... |
|00002320| 20 20 20 20 20 20 e7 20 | ac 20 63 61 70 5f 6d 6f | . |. cap_mo|
|00002330| 64 65 20 8c 0d 0d e8 14 | 20 20 20 20 20 20 20 20 |de .....| |
|00002340| 20 f2 73 77 61 70 52 43 | 0d 0d f2 17 20 20 20 20 | .swapRC|.... |
|00002350| 20 20 20 20 20 63 61 70 | 5f 6d 6f 64 65 3d b9 0d | cap|_mode=..|
|00002360| 0d fc 33 20 20 20 20 20 | 20 20 20 20 24 69 63 6f |..3 | $ico|
|00002370| 6e 61 64 64 72 28 36 29 | 3d 22 52 65 71 75 69 72 |naddr(6)|="Requir|
|00002380| 65 64 20 63 61 70 61 63 | 69 74 61 6e 63 65 22 2b |ed capac|itance"+|
|00002390| bd 30 0d 0e 06 21 20 20 | 20 20 20 20 20 20 20 f2 |.0...! | .|
|000023a0| 74 69 74 6c 65 28 22 43 | 61 70 61 63 69 74 6f 72 |title("C|apacitor|
|000023b0| 73 22 29 0d 0e 10 1c 20 | 20 20 20 20 20 20 20 20 |s").... | |
|000023c0| f2 75 70 64 61 74 65 5f | 69 63 6f 6e 28 36 29 0d |.update_|icon(6).|
|000023d0| 0e 1a 1b 20 20 20 20 20 | 20 20 20 20 f2 73 65 74 |... | .set|
|000023e0| 5f 69 63 6f 6e 28 31 2c | a3 29 0d 0e 24 1b 20 20 |_icon(1,|.)..$. |
|000023f0| 20 20 20 20 20 20 20 f2 | 73 65 74 5f 69 63 6f 6e | .|set_icon|
|00002400| 28 32 2c b9 29 0d 0e 2e | 0c 20 20 20 20 20 20 20 |(2,.)...|. |
|00002410| cd 0d 0e 38 06 20 cb 0d | 0e 42 0d 20 f2 72 65 73 |...8. ..|.B. .res|
|00002420| 75 6c 74 73 0d 0e 4c 05 | e1 0d 0e 56 05 3a 0d 0e |ults..L.|...V.:..|
|00002430| 60 12 dd f2 72 65 64 72 | 61 77 77 69 6e 64 6f 77 |`...redr|awwindow|
|00002440| 0d 0e 6a 12 20 68 61 6e | 64 6c 65 3d 70 74 72 25 |..j. han|dle=ptr%|
|00002450| 21 30 0d 0e 74 28 20 c8 | 99 20 22 57 69 6d 70 5f |!0..t( .|. "Wimp_|
|00002460| 52 65 64 72 61 77 57 69 | 6e 64 6f 77 22 2c 2c 70 |RedrawWi|ndow",,p|
|00002470| 74 72 25 20 b8 20 66 6c | 61 67 0d 0e 7e 0f 20 c8 |tr% . fl|ag..~. .|
|00002480| 95 20 66 6c 61 67 3c 3e | 30 0d 0e 88 2c 20 20 20 |. flag<>|0..., |
|00002490| 20 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 52 65 | .. "Wi|mp_GetRe|
|000024a0| 63 74 61 6e 67 6c 65 22 | 2c 2c 70 74 72 25 20 b8 |ctangle"|,,ptr% .|
|000024b0| 20 66 6c 61 67 0d 0e 92 | 06 20 ce 0d 0e 9c 05 e1 | flag...|. ......|
|000024c0| 0d 0e a6 05 3a 0d 0e b0 | 0f dd f2 4f 53 6d 65 73 |....:...|...OSmes|
|000024d0| 73 61 67 65 0d 0e ba 15 | 20 61 63 74 69 6f 6e 3d |sage....| action=|
|000024e0| 62 6c 6f 63 6b 25 21 31 | 36 0d 0e c4 10 20 c8 8e |block%!1|6.... ..|
|000024f0| 20 61 63 74 69 6f 6e 20 | ca 0d 0e ce 13 20 20 20 | action |..... |
|00002500| c9 20 30 20 3a 20 71 75 | 69 74 3d b9 0d 0e d8 08 |. 0 : qu|it=.....|
|00002510| 20 20 20 cb 0d 0e e2 05 | e1 0d 0e ec 05 3a 0d 0e | .....|.....:..|
|00002520| f6 0e dd f2 6b 65 79 70 | 72 65 73 73 0d 0f 00 35 |....keyp|ress...5|
|00002530| 20 77 69 6e 64 6f 77 20 | 3d 20 70 74 72 25 21 30 | window |= ptr%!0|
|00002540| 20 3a 20 69 63 6f 6e 20 | 3d 20 70 74 72 25 21 34 | : icon |= ptr%!4|
|00002550| 20 3a 20 63 68 61 72 20 | 3d 20 70 74 72 25 21 32 | : char |= ptr%!2|
|00002560| 34 0d 0f 0a 1c 20 e7 20 | 77 69 6e 64 6f 77 20 3d |4.... . |window =|
|00002570| 20 6d 61 69 6e 68 61 6e | 64 6c 65 20 8c 0d 0f 14 | mainhan|dle ....|
|00002580| 12 20 20 20 e7 20 63 68 | 61 72 3d 31 33 20 8c 0d |. . ch|ar=13 ..|
|00002590| 0f 1e 12 20 20 20 20 20 | c8 8e 20 69 63 6f 6e 20 |... |.. icon |
|000025a0| ca 0d 0f 28 1d 20 20 20 | 20 20 20 20 c9 20 37 20 |...(. | . 7 |
|000025b0| 20 20 20 3a f2 63 61 6c | 63 75 6c 61 74 65 0d 0f | :.cal|culate..|
|000025c0| 32 1d 20 20 20 20 20 20 | 20 c9 20 39 2c 31 30 20 |2. | . 9,10 |
|000025d0| 3a f2 73 69 6d 70 6c 65 | 28 b9 29 0d 0f 3c 1d 20 |:.simple|(.)..<. |
|000025e0| 20 20 20 20 20 20 c9 20 | 31 33 2c 31 34 3a f2 73 | . |13,14:.s|
|000025f0| 69 6d 70 6c 65 28 a3 29 | 0d 0f 46 0a 20 20 20 20 |imple(.)|..F. |
|00002600| 20 cb 0d 0f 50 06 20 cd | 0d 0f 5a 30 20 c8 99 20 | ...P. .|..Z0 .. |
|00002610| 22 57 69 6d 70 5f 50 72 | 6f 63 65 73 73 4b 65 79 |"Wimp_Pr|ocessKey|
|00002620| 22 2c 70 74 72 25 21 32 | 34 3a 20 f4 20 70 61 73 |",ptr%!2|4: . pas|
|00002630| 73 20 6b 65 79 20 6f 6e | 0d 0f 64 05 e1 0d 0f 6e |s key on|..d....n|
|00002640| 05 3a 0d 0f 78 12 dd f2 | 73 68 75 74 28 77 69 6e |.:..x...|shut(win|
|00002650| 64 6f 77 29 0d 0f 82 14 | 20 62 6c 6f 63 6b 25 21 |dow)....| block%!|
|00002660| 30 3d 77 69 6e 64 6f 77 | 0d 0f 8c 22 20 c8 99 20 |0=window|..." .. |
|00002670| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00002680| 77 22 2c 2c 62 6c 6f 63 | 6b 25 0d 0f 96 05 e1 0d |w",,bloc|k%......|
|00002690| 0f a0 05 3a 0d 0f aa 0b | dd f2 65 72 72 6f 72 0d |...:....|..error.|
|000026a0| 0f b4 07 20 ef 33 0d 0f | be 0e 20 21 62 6c 6f 63 |... .3..|.. !bloc|
|000026b0| 6b 25 3d 30 0d 0f c8 1e | 20 24 28 62 6c 6f 63 6b |k%=0....| $(block|
|000026c0| 25 2b 34 29 3d f6 24 2b | 22 20 20 22 2b c3 9e 2b |%+4)=.$+|" "+..+|
|000026d0| bd 30 0d 0f d2 2e 20 c8 | 99 22 57 69 6d 70 5f 52 |.0.... .|."Wimp_R|
|000026e0| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 62 6c 6f 63 |eportErr|or",bloc|
|000026f0| 6b 25 2c 32 2c 22 41 6e | 79 a0 52 43 22 2b bd 30 |k%,2,"An|y.RC"+.0|
|00002700| 0d 0f dc 05 e1 0d 0f e6 | 05 3a 0d 0f f0 16 dd f2 |........|.:......|
|00002710| 74 65 78 74 5f 6d 65 73 | 73 61 67 65 28 41 24 29 |text_mes|sage(A$)|
|00002720| 0d 0f fa 0e 20 21 62 6c | 6f 63 6b 25 3d 30 0d 10 |.... !bl|ock%=0..|
|00002730| 04 16 20 24 28 62 6c 6f | 63 6b 25 2b 34 29 3d 41 |.. $(blo|ck%+4)=A|
|00002740| 24 2b bd 30 0d 10 0e 2f | 20 c8 99 22 57 69 6d 70 |$+.0.../| .."Wimp|
|00002750| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 62 6c |_ReportE|rror",bl|
|00002760| 6f 63 6b 25 2c 31 36 2c | 22 41 6e 79 a0 52 43 22 |ock%,16,|"Any.RC"|
|00002770| 2b bd 30 0d 10 18 05 e1 | 0d 10 22 05 3a 0d 10 2c |+.0.....|..".:..,|
|00002780| 0d dd f2 69 63 6f 6e 62 | 61 72 0d 10 36 10 20 62 |...iconb|ar..6. b|
|00002790| 6c 6f 63 6b 25 21 30 3d | 2d 31 0d 10 40 0f 20 62 |lock%!0=|-1..@. b|
|000027a0| 6c 6f 63 6b 25 21 34 3d | 30 0d 10 4a 0f 20 62 6c |lock%!4=|0..J. bl|
|000027b0| 6f 63 6b 25 21 38 3d 30 | 0d 10 54 11 20 62 6c 6f |ock%!8=0|..T. blo|
|000027c0| 63 6b 25 21 31 32 3d 36 | 38 0d 10 5e 11 20 62 6c |ck%!12=6|8..^. bl|
|000027d0| 6f 63 6b 25 21 31 36 3d | 36 38 0d 10 68 14 20 62 |ock%!16=|68..h. b|
|000027e0| 6c 6f 63 6b 25 21 32 30 | 3d 26 33 30 30 32 0d 10 |lock%!20|=&3002..|
|000027f0| 72 1b 20 24 28 62 6c 6f | 63 6b 25 2b 32 34 29 3d |r. $(blo|ck%+24)=|
|00002800| 22 21 41 6e 79 a0 52 43 | 22 0d 10 7c 2b 20 c8 99 |"!Any.RC|"..|+ ..|
|00002810| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 49 63 6f | "Wimp_C|reateIco|
|00002820| 6e 22 2c 2c 62 6c 6f 63 | 6b 25 20 b8 20 69 63 6f |n",,bloc|k% . ico|
|00002830| 6e 62 61 72 0d 10 86 05 | e1 0d 10 90 05 3a 0d 10 |nbar....|.....:..|
|00002840| 9a 0b dd f2 63 6c 65 61 | 72 0d 10 a4 10 20 e3 20 |....clea|r.... . |
|00002850| 49 25 3d 39 20 b8 20 31 | 38 0d 10 ae 1a 20 20 24 |I%=9 . 1|8.... $|
|00002860| 69 63 6f 6e 61 64 64 72 | 28 49 25 29 3d bd 31 33 |iconaddr|(I%)=.13|
|00002870| 2b bd 30 0d 10 b8 06 20 | ed 0d 10 c2 0d 20 f2 67 |+.0.... |..... .g|
|00002880| 72 65 79 28 b9 29 0d 10 | cc 05 e1 0d 10 d6 05 3a |rey(.)..|.......:|
|00002890| 0d 10 e0 10 dd f2 75 70 | 64 61 74 65 5f 61 6c 6c |......up|date_all|
|000028a0| 0d 10 ea 33 20 62 6c 6f | 63 6b 25 21 30 3d 6d 61 |...3 blo|ck%!0=ma|
|000028b0| 69 6e 68 61 6e 64 6c 65 | 20 3a 20 62 6c 6f 63 6b |inhandle| : block|
|000028c0| 25 21 38 3d 30 20 3a 20 | 62 6c 6f 63 6b 25 21 31 |%!8=0 : |block%!1|
|000028d0| 32 3d 30 0d 10 f4 10 20 | e3 20 49 25 3d 37 20 b8 |2=0.... |. I%=7 .|
|000028e0| 20 31 38 0d 10 fe 12 20 | 20 20 62 6c 6f 63 6b 25 | 18.... | block%|
|000028f0| 21 34 3d 49 25 0d 11 08 | 30 20 20 20 c8 99 20 26 |!4=I%...|0 .. &|
|00002900| 34 30 30 43 44 2c 2c 62 | 6c 6f 63 6b 25 20 3a 20 |400CD,,b|lock% : |
|00002910| f4 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00002920| 74 61 74 65 22 0d 11 12 | 06 20 ed 0d 11 1c 18 20 |tate"...|. ..... |
|00002930| 62 6c 6f 63 6b 25 21 30 | 3d 6d 61 69 6e 68 61 6e |block%!0|=mainhan|
|00002940| 64 6c 65 0d 11 26 24 20 | c8 99 22 57 69 6d 70 5f |dle..&$ |.."Wimp_|
|00002950| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00002960| 2c 62 6c 6f 63 6b 25 0d | 11 30 11 20 62 6c 6f 63 |,block%.|.0. bloc|
|00002970| 6b 25 21 32 38 3d 2d 31 | 0d 11 3a 20 20 c8 99 22 |k%!28=-1|..: .."|
|00002980| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00002990| 2c 2c 62 6c 6f 63 6b 25 | 0d 11 44 05 e1 0d 11 4e |,,block%|..D....N|
|000029a0| 05 3a 0d 11 58 15 dd f2 | 75 70 64 61 74 65 5f 69 |.:..X...|update_i|
|000029b0| 63 6f 6e 28 49 25 29 0d | 11 62 26 20 62 6c 6f 63 |con(I%).|.b& bloc|
|000029c0| 6b 25 21 30 3d 6d 61 69 | 6e 68 61 6e 64 6c 65 20 |k%!0=mai|nhandle |
|000029d0| 3a 20 62 6c 6f 63 6b 25 | 21 34 3d 49 25 0d 11 6c |: block%|!4=I%..l|
|000029e0| 1d 20 62 6c 6f 63 6b 25 | 21 38 3d 30 20 3a 20 62 |. block%|!8=0 : b|
|000029f0| 6c 6f 63 6b 25 21 31 32 | 3d 30 0d 11 76 2e 20 c8 |lock%!12|=0..v. .|
|00002a00| 99 20 26 34 30 30 43 44 | 2c 2c 62 6c 6f 63 6b 25 |. &400CD|,,block%|
|00002a10| 20 3a 20 f4 20 22 57 69 | 6d 70 5f 53 65 74 49 63 | : . "Wi|mp_SetIc|
|00002a20| 6f 6e 53 74 61 74 65 22 | 0d 11 80 05 e1 0d 11 8a |onState"|........|
|00002a30| 05 3a 0d 11 94 15 dd f2 | 73 65 74 5f 69 63 6f 6e |.:......|set_icon|
|00002a40| 28 49 25 2c 53 25 29 0d | 11 9e 26 20 62 6c 6f 63 |(I%,S%).|..& bloc|
|00002a50| 6b 25 21 30 3d 6d 61 69 | 6e 68 61 6e 64 6c 65 20 |k%!0=mai|nhandle |
|00002a60| 3a 20 62 6c 6f 63 6b 25 | 21 34 3d 49 25 0d 11 a8 |: block%|!4=I%...|
|00002a70| 29 20 e7 20 53 25 20 8c | 20 62 6c 6f 63 6b 25 21 |) . S% .| block%!|
|00002a80| 38 3d 26 32 30 30 30 30 | 30 20 8b 20 62 6c 6f 63 |8=&20000|0 . bloc|
|00002a90| 6b 25 21 38 3d 30 0d 11 | b2 16 20 62 6c 6f 63 6b |k%!8=0..|.. block|
|00002aa0| 25 21 31 32 3d 26 32 30 | 30 30 30 30 0d 11 bc 2e |%!12=&20|0000....|
|00002ab0| 20 c8 99 20 26 34 30 30 | 43 44 2c 2c 62 6c 6f 63 | .. &400|CD,,bloc|
|00002ac0| 6b 25 20 3a 20 f4 20 22 | 57 69 6d 70 5f 53 65 74 |k% : . "|Wimp_Set|
|00002ad0| 49 63 6f 6e 53 74 61 74 | 65 22 0d 11 c6 05 e1 0d |IconStat|e"......|
|00002ae0| 11 d0 05 3a 0d 11 da 0e | dd f2 67 72 65 79 28 53 |...:....|..grey(S|
|00002af0| 25 29 0d 11 e4 0c 20 ea | 20 4e 25 2c 49 25 0d 11 |%).... .| N%,I%..|
|00002b00| ee 08 20 f7 2b 31 0d 11 | f8 15 20 dc 20 31 37 2c |.. .+1..|.. . 17,|
|00002b10| 31 38 2c 33 33 2c 33 34 | 2c 32 31 0d 12 02 0d 20 |18,33,34|,21.... |
|00002b20| e3 20 4e 25 3d 31 b8 35 | 0d 12 0c 0b 20 20 20 f3 |. N%=1.5|.... .|
|00002b30| 20 49 25 0d 12 16 28 20 | 20 20 62 6c 6f 63 6b 25 | I%...( | block%|
|00002b40| 21 30 3d 6d 61 69 6e 68 | 61 6e 64 6c 65 20 3a 20 |!0=mainh|andle : |
|00002b50| 62 6c 6f 63 6b 25 21 34 | 3d 49 25 0d 12 20 2b 20 |block%!4|=I%.. + |
|00002b60| 20 20 e7 20 53 25 20 8c | 20 62 6c 6f 63 6b 25 21 | . S% .| block%!|
|00002b70| 38 3d 26 34 30 30 30 30 | 30 20 8b 20 62 6c 6f 63 |8=&40000|0 . bloc|
|00002b80| 6b 25 21 38 3d 30 0d 12 | 2a 18 20 20 20 62 6c 6f |k%!8=0..|*. blo|
|00002b90| 63 6b 25 21 31 32 3d 26 | 34 30 30 30 30 30 0d 12 |ck%!12=&|400000..|
|00002ba0| 34 30 20 20 20 c8 99 20 | 26 34 30 30 43 44 2c 2c |40 .. |&400CD,,|
|00002bb0| 62 6c 6f 63 6b 25 20 3a | 20 f4 20 22 57 69 6d 70 |block% :| . "Wimp|
|00002bc0| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 0d 12 |_SetIcon|State"..|
|00002bd0| 3e 06 20 ed 0d 12 48 05 | e1 0d 12 52 05 3a 0d 12 |>. ...H.|...R.:..|
|00002be0| 5c 0f dd f2 63 61 72 65 | 74 28 49 25 29 0d 12 66 |\...care|t(I%)..f|
|00002bf0| 35 20 c8 99 22 57 69 6d | 70 5f 53 65 74 43 61 72 |5 .."Wim|p_SetCar|
|00002c00| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 6d 61 69 6e |etPositi|on",main|
|00002c10| 68 61 6e 64 6c 65 2c 49 | 25 2c 30 2c 30 2c 2d 31 |handle,I|%,0,0,-1|
|00002c20| 2c 30 0d 12 70 05 e1 0d | 12 7a 05 3a 0d 12 84 0f |,0..p...|.z.:....|
|00002c30| dd f2 74 69 74 6c 65 28 | 54 24 29 0d 12 8e 2d 20 |..title(|T$)...- |
|00002c40| 24 74 69 74 6c 65 61 64 | 64 72 3d 54 24 2b 22 20 |$titlead|dr=T$+" |
|00002c50| 69 6e 20 53 65 72 69 65 | 73 20 2f 20 50 61 72 61 |in Serie|s / Para|
|00002c60| 6c 6c 65 6c 22 2b bd 30 | 0d 12 98 17 20 21 62 6c |llel"+.0|.... !bl|
|00002c70| 6f 63 6b 25 3d 6d 61 69 | 6e 68 61 6e 64 6c 65 0d |ock%=mai|nhandle.|
|00002c80| 12 a2 22 20 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |.." .. "|Wimp_Clo|
|00002c90| 73 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |seWindow|",,block|
|00002ca0| 25 0d 12 ac 24 20 c8 99 | 22 57 69 6d 70 5f 47 65 |%...$ ..|"Wimp_Ge|
|00002cb0| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|00002cc0| 6c 6f 63 6b 25 0d 12 b6 | 20 20 c8 99 22 57 69 6d |lock%...| .."Wim|
|00002cd0| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00002ce0| 6c 6f 63 6b 25 0d 12 c0 | 0e 20 f2 63 61 72 65 74 |lock%...|. .caret|
|00002cf0| 28 37 29 0d 12 ca 05 e1 | 0d ff |(7).....|.. |
+--------+-------------------------+-------------------------+--------+--------+